gg <- ggplot(by_episode, aes(episode_number, mean_sentiment_score, group = 1, text = text_sent)) +
geom_col(color = "#592a88") +
geom_smooth()
ggplotly(gg, tooltip = "text")
gg<- ggplot(by_episode, aes(episode_number, rating, group = 1, text = text_pop)) +
geom_point(color = "#592a88", alpha = 0.6, size = 3) +
geom_vline(xintercept = 100, color = "red", linetype = "dashed") +
geom_smooth()
ggplotly(gg, tooltip = "text")
100 episodes joke - https://en.wikipedia.org/wiki/Cancelled_(South_Park)